home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tilebi1a / api_stre.bas < prev    next >
BASIC Source File  |  1998-04-07  |  2KB  |  22 lines
  1. Attribute VB_Name = "API_StretchBitBlt"
  2. Option Explicit
  3.  
  4. Public Const BLACKNESS = &H42           ' (DWORD) dest = BLACK
  5. Public Const DSTINVERT = &H550009       ' (DWORD) dest = (NOT dest)
  6. Public Const MERGECOPY = &HC000CA       ' (DWORD) dest = (source AND pattern)
  7. Public Const MERGEPAINT = &HBB0226      ' (DWORD) dest = (NOT source) OR dest
  8. Public Const NOTSRCCOPY = &H330008      ' (DWORD) dest = (NOT source)
  9. Public Const NOTSRCERASE = &H1100A6     ' (DWORD) dest = (NOT src) AND (NOT dest)
  10. Public Const PATCOPY = &HF00021         ' (DWORD) dest = pattern
  11. Public Const PATINVERT = &H5A0049       ' (DWORD) dest = pattern XOR dest
  12. Public Const PATPAINT = &HFB0A09        ' (DWORD) dest = DPSnoo
  13. Public Const SRCAND = &H8800C6          ' (DWORD) dest = source AND dest
  14. Public Const SRCCOPY = &HCC0020         ' (DWORD) dest = source
  15. Public Const SRCERASE = &H440328        ' (DWORD) dest = source AND (NOT dest )
  16. Public Const SRCINVERT = &H660046       ' (DWORD) dest = source XOR dest
  17. Public Const SRCPAINT = &HEE0086        ' (DWORD) dest = source OR dest
  18. Public Const WHITENESS = &HFF0062       ' (DWORD) dest = WHITE
  19.  
  20. Declare Function BitBlt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
  21. Declare Function StretchBlt Lib "gdi32" Alias "StretchBlt" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
  22.